Code Implementation

Problem 1

Default.aspx

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Registration Form</title>
</head>
<body>
    <form id="form1" runat="server">
        <div>
            <h1>Registration Form</h1>
            <label for="cnic">CNIC:</label>
            <input id="cnic" type="text" runat="server" /><br />
            <label for="fname">First Name:</label>
            <input id="fname" type="text" runat="server" /><br />
            <label for="lname">Last Name:</label>
            <input id="lname" type="text" runat="server" /><br />
            <label for="email">Email:</label>
            <input id="email" type="text" runat="server" /><br />
            <label for="phone">Phone No:</label>
            <input id="phone" type="text" runat="server" /><br />
            <label for="gender">Gender (M/F):</label>
            <input id="gender" type="text" runat="server" /><br />
            <label for="city">City:</label>
            <input id="city" type="text" runat="server" /><br />
            <label for="state">State:</label>
            <input id="state" type="text" runat="server" /><br />
            <label for="postal">Postal Code:</label>
            <input id="postal" type="text" runat="server" /><br />
            <label for="country">Country:</label>
            <input id="country" type="text" runat="server" /><br />
            <label for="role">Role:</label>
            <input id="role" type="text" runat="server" /><br />
            <label for="password">Password:</label>
            <input id="password" type="text" runat="server" /><br />

            <input id="add" type="submit" value="Submit" runat="server" onserverclick="add_ServerClick" /><br />
        </div>
    </form>
</body>
</html>

Default.aspx.vb


Imports System.Data.SqlClient

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub add_ServerClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim constr As String = "workstation id=ArtVault.mssql.somee.com;packet size=4096;user id=Aalleyy_SQLLogin_1;pwd=6hqepy6m5t;data source=ArtVault.mssql.somee.com;persist security info=False;initial catalog=ArtVault;TrustServerCertificate=True"
        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand()
                cmd.Connection = con
                cmd.CommandText = "INSERT INTO PERSON (PERSON_ID, FIRST_NAME, LAST_NAME, EMAIL, PHONE_NO, GENDER, CITY, STATE, POSTAL_CODE, COUNTRY, ROLE, PASSWORD)"
                cmd.CommandText &= " VALUES ('"
                cmd.CommandText &= cnic.Value & "', '"
                cmd.CommandText &= fname.Value & "', '"
                cmd.CommandText &= lname.Value & "', '"
                cmd.CommandText &= email.Value & "', '"
                cmd.CommandText &= phone.Value & "', '"
                cmd.CommandText &= gender.Value & "', '"
                cmd.CommandText &= city.Value & "', '"
                cmd.CommandText &= state.Value & "', '"
                cmd.CommandText &= postal.Value & "', '"
                cmd.CommandText &= country.Value & "', '"
                cmd.CommandText &= role.Value & "', '"
                cmd.CommandText &= password.Value & "')"

                Try
                    con.Open()
                    Dim result As Integer = cmd.ExecuteNonQuery()
                    If result > 0 Then
                        Response.Write("Record Inserted Successfully!")
                    Else
                        Response.Write("Insertion Failed.")
                    End If
                Catch ex As Exception
                    Response.Write("Error: " & ex.Message)
                End Try
            End Using
        End Using
    End Sub
End Class

Problem 2

Default.aspx


<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Default2" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
        <div>
            <h2>Search Customer</h2>
            <asp:Label ID="Label1" runat="server" Text="Enter CNIC:"></asp:Label><br />
            <asp:TextBox ID="txtSearch" runat="server"></asp:TextBox>
            <asp:Button ID="btnSearch" runat="server" Text="Search" OnClick="btnSearch_Click" /><br /><br />
            <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="True"></asp:GridView>
            <asp:Label ID="lblMessage" runat="server" ForeColor="Red"></asp:Label>
        </div>
    </form>
</body>
</html>

Default2.aspx.vb


Imports System.Data
Imports System.Data.SqlClient

Partial Class Default2
    Inherits System.Web.UI.Page
    Protected Sub btnSearch_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim constr As String = "Dworkstation id=ArtVault.mssql.somee.com;packet size=4096;user id=Aalleyy_SQLLogin_1;pwd=6hqepy6m5t;data source=ArtVault.mssql.somee.com;persist security info=False;initial catalog=ArtVault;TrustServerCertificate=True"
        Dim search As String = txtSearch.Text.Trim()
        Dim query As String = "SELECT * FROM PERSON WHERE PERSON_ID = '" & search  & "'"

        Using con As New SqlConnection(constr)
            Using cmd As New SqlCommand(query, con)
                Dim dt As New DataTable()
                Using sda As New SqlDataAdapter(cmd)
                    sda.Fill(dt)
                End Using

                If dt.Rows.Count > 0 Then
                    GridView1.DataSource = dt
                    GridView1.DataBind()
                    lblMessage.Text = ""
                Else
                    GridView1.DataSource = Nothing
                    GridView1.DataBind()
                    lblMessage.Text = "No record found."
                End If
            End Using
        End Using
    End Sub
End Class